<%@ LANGUAGE=VBScript CodePage=65001%>
<%Option Explicit
Response.Buffer = True
'On Error Resume next

Response.Charset="UTF-8"
session.codepage = 65001 

Dim conn,connstr,rs
'response.write(blog_databasepath)

'系统配置信息
const PreStr			=	"blog"		'变量前缀
const IniUploadDir		=	"inc"
const AppAdminDir		=	"admin"			'管理员目录
const DbPath			=	"../data"		'相对的是后台目录
const TrueDbName		=	"db.mdb"
Const blog_virualdatabase	= "data/db.mdb"

'缓存参数
const AppSiteKey		=	"Allkey"		'决定是否关闭前台;
const AppUpdateKey		=	"AppUpdateKey"		'决定是否更新的数组键
const AppArrData		=	"AppArrData"	'对应键的数组项
const AppSiteLockWhy	=	"网站为什么关闭了?"
const MaxAppUboundKey	=	5

const CookiesUserArr		=	"my5do8"
const UserLoginID			=	"loginedID"
const UserLoginName			=	"logineduser"	'用户参数			
const UserLoginPassword		=	"loginedpass"
const UserLoginLevel		=	"loginedLevel"
const CookiesExpires		=	30 

'数据库的数据表
Dim  ConstDBtablearr,FileList,ProtectDiretorys
ConstDBtablearr		=	Array("L_cat","L_info","L_user","L_reply","L_link")

ProtectDiretorys	=	Array("admin","cache","cert","class","data","edittools","images","inc","js","styles","template","upload")




If not IsNumeric(application(PreStr & AppSiteKey))   Or IsEmpty(application(PreStr & AppSiteKey)) Then
	Application.Lock
	application(PreStr & AppSiteKey) = 1'如果刚启动，设置成 1 ，表示开启,0表示关闭
	Application.UnLock
End if

If application(PreStr & AppSiteKey) = 0  then 
	if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),AppAdminDir) = 0 Then
		Response.Write ( AppSiteLockWhy)
		Response.End
	End if 
End If

%>